home *** CD-ROM | disk | FTP | other *** search
/ AEMail 2.40 / AEMail v2.40.iso / arexx / html.aem < prev    next >
Text File  |  1999-03-29  |  2KB  |  90 lines
  1. /* AEMail HTML display */
  2.  
  3. PARSE ARG file a
  4.  
  5. OPTIONS RESULTS
  6.  
  7. IF ~ SHOW('L', "rexxsupport.library") THEN DO
  8.     IF ~ ADDLIB('rexxsupport.library', 0, -30, 0) THEN
  9.         DO
  10.         ADDRESS AEMAIL1 okay1 "ARexx support library not available, exiting"
  11.         EXIT
  12.         END
  13.     END
  14.  
  15. IF (file = "") THEN DO
  16.     ADDRESS AEMAIL1 GETVAR
  17.     file = result
  18.     IF (SUBSTR(file, 1, 5) ~= 'http:') THEN DO
  19.         ADDRESS AEMAIL1 okay1 "Variable not web address"'0A'X"Found :" file
  20.         EXIT
  21.         END
  22.     END
  23.  
  24.  
  25. wwwprog = ""
  26. wwwport = ""
  27.  
  28. IF SHOWLIST('A', "IBROWSE") THEN
  29.     DO
  30.     wwwdir = "IBROWSE:"
  31.     wwwprog = "IBROWSE:Ibrowse"
  32.     wwwport = "IBROWSE"
  33.     END
  34. ELSE IF (SHOWLIST('A', 'AWEB3')) THEN
  35.     DO
  36.     wwwdir = "AWEB3:"
  37.     wwwprog = "AWeb3:Aweb-II"
  38.     wwwport = "AWEB."
  39.     END
  40. ELSE IF SHOWLIST('A', "AWEB-II") THEN
  41.     DO
  42.     wwwdir = "AWEB-II:"
  43.     wwwprog = "AWEB-II:AWEB-II"
  44.     wwwport = "AWEB."
  45.     END
  46.  
  47. IF (wwwport = "AWEB.") THEN
  48.     DO
  49.     ports = SHOW('P')
  50.     PARSE VAR ports dummy "AWEB." portnr .
  51.     IF (portnr = "") THEN portnr = "1"
  52.     wwwport = wwwport || portnr
  53.     END
  54.  
  55. IF ~ SHOW('P', wwwport) THEN
  56.     DO
  57.     ADDRESS COMMAND "Run >NIL: "||wwwprog
  58.     ADDRESS COMMAND "WaitForPort "||wwwport
  59.     IF ~ SHOW("P", wwwport) THEN
  60.         DO
  61.         ADDRESS COMMAND "Run >NIL: sys:utilities/multiview" file
  62.         EXIT
  63.         END
  64.     END
  65.  
  66. olddir = PRAGMA('D', wwwdir)
  67. newdir = PRAGMA('D',"")
  68.  
  69. file2 = STRIP(file,'B','"')
  70.  
  71. IF (file2 == 'T:AMtemp') THEN DO
  72.     ADDRESS COMMAND "DELETE >NIL: t:amtemp.html"
  73.     ADDRESS COMMAND "RENAME >NIL: T:Amtemp t:amtemp.html"
  74.     file = "file://localhost/t:amtemp.html"
  75.     END
  76.  
  77. ADDRESS VALUE wwwport
  78.  
  79. IF (wwwport = "IBROWSE") THEN DO
  80.     "INFO SCREEN"
  81.     ADDRESS AEMAIL1 SCREENTOFRONT result
  82.     "GOTOURL" file
  83.     END
  84. ELSE DO
  85.     "SCREENTOFRONT"
  86.     "OPEN" file
  87.     END
  88.  
  89. if (RC ~= 0) then ADDRESS AEMAIL1 okay1 "Your browser returned RC "RC
  90.